home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Commo-Support / Disk-Archive / amiga-logo.dms / amiga-logo.adf / Logo / INTRO < prev    next >
Text File  |  1988-12-15  |  2KB  |  118 lines
  1.  
  2. TO COLOR.TALK
  3. SAY [TO MAKE IT MORE EXCITING, LET'S ADD COLOR!]
  4. CS SS
  5. SAY [MAKE THE PEN GREEN BY TYPING]
  6. PR " 
  7. TYPE [SETPENCOLOR] SAY "SETPENCOLOR TYPE " 
  8. TYPE [2] SAY 2 PR " 
  9. SAY [AND RUN THE PROGRAM AGAIN]
  10. PR [REPEAT 12 [BOX 100 RIGHT 30]]
  11. WAIT 20
  12. FS 
  13. SETPENCOLOR 2
  14. REPEAT 12 [BOX 100 RIGHT 30]
  15. SAY [KOOL]
  16. RECYCLE
  17. WAIT 40
  18. SAY [NOW, HOW ABOUT MAKING IT PURPLE?]
  19. SS CS
  20. TYPE [SETPENCOLOR] SAY "SETPENCOLOR TYPE " 
  21. TYPE 3 SAY 3 PR " 
  22. PR [REPEAT 12 [BOX 100 RIGHT 30]]
  23. WAIT 30
  24. HOME FS
  25. SETPENCOLOR 3
  26. REPEAT 12 [BOX 100 RIGHT 30]
  27. SAY [THIS IS GOOD STUFF.]
  28. END
  29.  
  30. TO BOX.TALK
  31. SAY [SAY, YOU WANT TO DRAW A BOX ON THE SCREEN]
  32. SAY [HERE'S HOW YOU COULD DO IT]
  33. SAY [SWITCH TO THE GRAPHICS SCREEN]
  34. CS SS
  35. PR [FORWARD 100]
  36. SAY [MOVE TURTLE FORWARD A HUNDRED UNITS]
  37. FD 100
  38. PR [RIGHT 90]
  39. SAY [TURN TO THE RIGHT]
  40. RIGHT 90
  41. PR [FORWARD 100]
  42. SAY [NOW MOVE IN THAT DIRECTION]
  43. FD 100
  44. SAY [WOAH]
  45. PR [RIGHT 90]
  46. SAY [TURN TO THE RIGHT AGAIN]
  47. RIGHT 90
  48. PR [FORWARD 100]
  49. SAY [MOVE FORWARD AGAIN]
  50. FD 100
  51. SAY [DO IT ALL ONE MORE TIME]
  52. PR [RIGHT 90]
  53. WAIT 30
  54. RIGHT 90
  55. PR [FORWARD 100]
  56. FD 100
  57. SAY [SO THERE'S YOUR BOX. THAT WAS EASY.]
  58. END
  59.  
  60. TO PROC.TALK
  61. SAY [OF COURSE, YOU MAY WANT TO DRAW THIS BOX MANY TIMES.]
  62. CS
  63. SAY [SO, WHY NOT TELL LOAGO HOW TO DRAW BOXES.]
  64. SAY [HERE IS ALL IT WOULD TAKE TO DO IT.]
  65. PRINT " 
  66. PRINTOUT "BOX
  67. WAIT 60
  68. SAY [WE CAN NOW TRY THIS BY TYPING]
  69. PR " 
  70. TYPE [BOX] SAY "BOX TYPE "  PR 100 SAY 100
  71. SAY [HERE'S WHAT IT LOOKS LIKE]
  72. BOX 100
  73. SAY [YOU COULD MAKE A LARGER BOX BY TYPING]
  74. TYPE [BOX] SAY "BOX TYPE "  PR 180 SAY 180
  75. WAIT 40
  76. BOX 180
  77. SAY [NICE.]
  78. END
  79.  
  80. TO BOX :SIZE
  81. REPEAT 4 [FORWARD :SIZE RIGHT 90]
  82. END
  83.  
  84. TO INTRO
  85. CT TS CS SETPC 1 FENCE PD
  86. PR " 
  87. PR [WELCOME TO AMIGA LOGO]
  88. PR "  PR " 
  89. SAY [WELCOME TO AMIGA LOAGO]
  90. SAY [LOAGO IS USEFUL FOR MANY THINGS]
  91. SAY [HERE ARE SOME EXAMPLES]
  92. BOX.TALK
  93. PROC.TALK
  94. FANCY.TALK
  95. COLOR.TALK
  96. SAY [I HOPE YOU HAVE ENJOYED THIS INTRODUCTION TO LOAGO.]
  97. SAY [NOW, TRY IF FOR YOURSELF.]
  98. QUIT
  99. END
  100.  
  101. TO FANCY.TALK
  102. SAY [OK, LET'S MAKE THIS MORE INTERESTING.]
  103. CS
  104. SAY [WHAT IF WE ROATATE THE BOX?]
  105. SAY [WHAT COULD BE EASIER.]
  106. SAY [YOU WOULD TYPE:]
  107. PR " 
  108. TYPE [REPEAT] SAY "REPEAT TYPE " 
  109. TYPE [12] SAY 12 TYPE " 
  110. TYPE [[BOX 100 RIGHT 30]] SAY [BOX 100, RIGHT 30] PR " 
  111. FS
  112. SAY [AND MAGIC!]
  113. REPEAT 12 [BOX 100 RIGHT 30]
  114. SAY [NEAT!]
  115. END
  116.  
  117. INTRO
  118.